vbslib

(for Internet Explorer)

→ T_TextSection.vbs

T_MakeCrossedOldSections

Sub MakeCrossedOldSections( in_OutFolderPath as string, _
in_NewFolderPath as string or PathDictionaryClass, in_OldFolderPath as string, _
in_NewTxscPath as string, in_OldTxscPath as string, in_Option as Empty )

新しいセクションの構成に合わせるように、古い内容のセクションを集めます。

出力ファイルを格納するフォルダーのパス

新しいセクションの構成を持つファイルが入ったフォルダーのパス

古い内容のセクションを持つファイルが入ったフォルダーのパス

in_OldFolderPath の中間ファイルを格納するフォルダーのパス

in_NewFolderPath の中間ファイルを格納するフォルダーのパス

Empty を指定してください

→ T_CrossedOld フォルダー

in_NewFolderPath 引数に

のオブジェクトを指定できます。

in_NewFolderPath 引数に指定したファイルに対応する出力ファイルが in_OutFolderPath 引数に指定
したフォルダーに格納されます。

中間ファイルは、

が出力するセクションインデックスファイルです。

/* Title: Section_A_1 */
This is old Section-A-1.

/* Title: Section_B_1 */
This is old Section-B-1.

/* Title: Section_B_2 */
This is old Section-B-2.

/* Title: Section_A_1 */
New A-1.

New A-2.

/* Title: Section_B_1 */
New B-1.

/* Title: Section_B_2 */
New B-2.

/* Title: Section_B_1 */
This is old Section-B-1.

/* Title: Section_A_1 */
This is old Section-A-1.

/* Title: Section_B_2 */
This is old Section-B-2.

/* Title: Section_A_2 */
This is old Section-A-2.

/* Title: Section_A_2 */

/* Title: Section_A_2 */
This is old Section-A-2.

New フォルダーにある A.txt と同じ名前のファイルを、Out フォルダーに作成します。その内容は、
New フォルダーにある A.txt のセクションの構成（順序）、すなわち、Section_A_1、Section_A_2 の

順になります。セクションの名前は、

が入力する形式で記述します。

形式のみ対応しています。それぞれセクションの内容は、Old フォルダーに

ある、すべてのファイルの中から検索して見つかったセクションをコピーした内容になります。

を呼び出しています。

MakeTextSectionIndexFile "*.c", "NaturalDocs", "C_Type", Empty, Empty

Sub MakeTextSectionIndexFile( Path as string or PathDictionaryClass,
TagTypeName as string, BeforeRootFullPath as string, AfterRootFullPath as string )

タグが付いたファイルから、セクションインデックスファイルを更新します。

セクション化されたテキストファイルのパス、または、

タグのタイプ、"NaturalDocs" を指定してください

.txsc ファイルのタイムスタンプの方が新しいときは、更新をせず、高速に処理します。

→ T_TextSection.vbs

→ NaturalDocs 関連の構文解析

*.txsc ファイルを作成する

_txsc\(ファイル名.拡張子).txsc の例

セクション化されたテキストのルート・フォルダーのパス

セクションインデックスファイル(.txsc) のルート・フォルダーのパス

BeforeRootFullPath 引数、AfterRootFullPath 引数に Empty を指定すると、カレントフォルダーを指定した
ときと同じ処理をします。 BeforeRootFullPath 引数、AfterRootFullPath 引数の詳細は、

出力ファイルの中の type 属性に入れる文字列

BeforeRootFullPath 引数と AfterRootFullPath 引数に、テキストファイルとインデックスファイルのある場所
の関係を指定します。

TagTypeName = "NaturalDocs" の場合の Sample.c の例

/***********************************************************************
* Function: StartA
************************************************************************/
void StartA()
{
}

/***********************************************************************
* Function: StartB
************************************************************************/
void StartB()
{
}

MakeNaturalComments_C_Language

config->AdditionalKeywords

g_NaturalDocsKeywords

MakeTextSectionIndexFile

Sub ConnectInTextSectionIndexFile( in_IndexFilePath as string,
in_KeywordAndName as array of array of string, in_Empty as Empty )

セクションインデックスファイルの中の指定したセクションを前のセクションとつなげる。

セクションインデックスファイルのパス

前のセクションとつなげるセクションのキーワードと名前の配列

Empty を指定してください

_txsc\(ファイル名.拡張子).txsc の例

ConnectInTextSectionIndexFile "Sample.c", Array( Array( "Function", "StartB" ) )

上記 TextSection タグをつなげるスクリプト：

つなげた後の.txsc ファイルの例：

Set file = OpenForWriteTextSection( "file.txt", Empty, Empty )
file.Cut "Section1"
file = Empty

Function OpenForWriteTextSection( SourcePath as string, DestinationPath as string,
Option_ as Empty ) as WriteTextSectionClass

セクション化されたテキストの編集を開始します。

編集前のセクション化されたテキスト・ファイルのパス

編集した結果を出力するファイルのパス、または、Empty

Empty を指定してください

→ 構造化テキストフォーマット (Module Mixer)

→ T_TextSection.vbs

返り値のオブジェクトの参照カウンターが 0 になったら、ファイルに出力されます。

セクション化されたテキスト

セクションを削除します。

file.txt ファイルの中の、"Section1" を含むセクションを削除します。

→ UsesSection (Mxp_Symbol)

残すセクションを選択します。

Sub WriteTextSectionClass::Cut( Key as string )

セクションを削除します。

セクションの中に含まれる文字列

Sub WriteTextSectionClass::PickUp( Key as string )

残すセクションを選択します。

セクションの中に含まれる文字列

本関数を１度でも呼び出すと、WriteTextSectionClass のオブジェクトの参照カウンターが 0
になったとき、選択されなかったセクションはすべて削除されます。

本関数を１度も呼び出さなかったときは、すべてのセクションが残ります。

[SectionX]
SettingA = abc

SettingB = 12
; comment

[SectionY]
SettingA = BC

下記の形式のテキストファイルで記述された設定値を扱います。

行末までのコメント記号は、行頭のみ対応

セクション名は省略可能

Function ParseIniFileLine( Line as string ) as ParsedIniFileLineClass

.ini ファイルに書かれた行を解析します。

.ini ファイルの中の１行

Set line = ParseIniFileLine( "[Section1]" )
'// line.Section = "Section1"
'// line.Name = Empty
'// line.Value = Empty

Set line = ParseIniFileLine( "Name = Value" )
'// line.Section = Empty
'// line.Name = "Name"
'// line.Value = "Value"

Set line = ParseIniFileLine( "Name =" )
'// line.Section = Empty
'// line.Name = "Name"
'// line.Value = ""

Set line = ParseIniFileLine( "comment" )
'// line.Section = Empty
'// line.Name = Empty
'// line.Value = Empty

[ ] で囲まれた行は、セクション名として解析します。
= がない行は、コメント行として解析します。

ParsedIniFileLineClass

T_GetIniFileTextValue

Function GetIniFileTextValue( IniText as string, SectionName as string,
VariableName as string, Option_ as Empty ) as string

.ini ファイルに書かれた設定値を参照します。

.ini ファイルの内容

セクション名、セクションがないファイルでは=Empty

Empty を指定してください

T_GetIniFileTextValue

Assert GetIniFileTextValue( text, Empty, "NameA", Empty ) = "Value"

該当する変数が存在しないときは、Empty が返ります。

Assert GetIniFileTextValue( text, "SectionB", "NameA", Empty ) = "Value"

Function GetIniFileTextValues( IniText as string, SectionName as string,
VariableName as string, Option_ as Empty ) as array of string

.ini ファイルに書かれた設定値を複数参照します。

.ini ファイルの内容

セクション名、セクションがないファイルでは=Empty

変数の設定値の配列

Empty を指定してください

該当する変数が存在しないときは、空の配列が返ります。

Assert IsSameArray( GetIniFileTextValues( text, "Section", "NameA", Empty ), _
Array( "Value1", "Value2" )

T_GetIniFileTextValue

after_text = SetIniFileTextValue( before_text, Empty, "NameA", "Value", Empty )

Function SetIniFileTextValue( IniText as string, SectionName as string,
VariableName as string, Value as Variant, Option_ as Empty ) as string

.ini ファイルに書かれた設定値を変更します。

変更前の .ini ファイルの内容

セクション名、セクションがないファイルでは=Empty

変更後の .ini ファイルの内容

Empty を指定してください

変更後の変数の設定値

T_SetIniFileTextValue

該当する変数が存在しないときは、エラーになります。

Sub RenumberIniFileData( ReadStream as TextStream, WriteStream as TextStream,
StartNumber as integer, IsPlusSpaceLineOnly as boolean )

.ini ファイルの内容のうち、= より左にある ( ) の中の番号を振り直します。

入力ストリーム

出力ストリーム

空行があるときだけ番号を＋１するかどうか

サンプル・データ

Data(2) = ABC
Data(5) = DEF
Data(6) = DEF

Data(1) = ABC
Data(2) = DEF
Data(3) = DEF

Function ParseJSON( JSON_String as string ) as JS_Object

JSON をパース（構文解析）します。

JSON 形式の文字列データ

JSON のデータにアクセスできるオブジェクト

Set json = ParseJSON( "{'attribute_1':'One', 'attr2':'Two'}" )
echo json.attribute_1 '// "One"

→ JSON (JavaScript Object Notation)

省略された属性に対して、返り値から参照しようとすると、エラー 438 になります。

CutSharpIf "sample.c", Empty, "SAMPLE", True

Sub CutSharpIf( InputPath as string, OutputPath as string, Symbol as string, IsCutTrue as boolean )

#ifdef ～ #endif をカットします。

入力ファイルやフォルダーのパス

出力ファイルやフォルダーのパス

#define シンボル、または、#if の条件文

#if が真の部分をカットする(True)か、偽の部分をカットする(False)か

→ T_CutSharpIf.vbs

CutSharpIf "FolderA", "FolderB", "SAMPLE_A || SAMPLE_B", False

→ ParsedRanges_getCut_by_PP_Directive

Sub CutCommentC( in_Path as string, in_Empty as Empty )

C/C++言語のソースファイルからコメントを削除します。

コメントを削除するソースファイルのパス

Empty を指定してください（予約）

→ clib - CutCommentC_1

コメントを削除する前の内容は上書きされて無くなるので、バックアップを取ってから実行して
ください。

→ T_CutCommentC.vbs

Set w_=AppKey.NewWritable( "Folder" ).Enable()
CutCommentC "Folder\Source.c", Empty

in_Path 引数には、

の引数のようにワイルドカードなどを指定できます。

→ T_NaturalDocs.vbs

MakeDocumentByNaturalDocs "src", "HTML", Empty

Sub MakeDocumentByNaturalDocs( SourceRootPath as string, DocumentRootPath as string,
Options as Empty )

Natural Docs を実行して、ソースファイルからHTML形式のドキュメントを生成します。

ソースファイルがあるフォルダーのパス

HTML形式のドキュメントを生成するフォルダーのパス